МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет «Львівська політехніка»
Кафедра АСУ
Розрахункова робота
з курсу “Об'єктно орієнтоване програмування”
Варіант 16
Тема Створення проекту з елементами графіки”
ЗАВДАННЯ:
Створити проект Delphi для побудови рухомих графічних зображень. Основні елементи зображення розглядати як об’єкти класів, які необхідно ввести та описати. Рух або зміну об’єктів реалізувати за допомогою відповідних методів класів. Рух більшості об’єктів здійснюється зліва направо, а тоді повторюється або змінює напрямок. Програма має реагувати на керуючі клавіші: 1) для видачі підказки; 2) для зупинки (паузи) та продовження руху; 3) старт із початкового стану; 4) збільшення-зменшення об’єкта; 5) уповільнення-прискорення руху; 6) завершення програми.
Примітка. Опис класів та реалізацію методів виконати в окремому програмному модулі.
Індивідуальне завдання: 16) Автозаправна станція заправляє.
.
Аналіз методів та алгоритмув виконнання завдання
У даної задачі є безліч методів рішення. Проце свідчить навіть те що є безліч варіантів створення зображення кульки а саме її побудова чи прив’язки розмірів або координат.
Хоча побудова класу не залежить від зовнішнього предствалення даних які містяться в класі оскільки воно формується реалізацією тих чи інших класів завданням яких є відображення інформації об’єкту.
Опис класів та об’єктів
В програмі створено три нові класи : TCar , TAZC, TScena.
Текст Програми
Zapravka;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
const
MaxBak=150;
MaxFuel=100;
Type
TCar=class
private
x,y:double;
Length:integer;
Height:integer;
Fuel:double;
public
Fueled:boolean;
constructor Create(x,y:double;Length,Height:integer;Fuel:double);
procedure Go(dx:double);
procedure Draw(Can:TCanvas);
procedure Scale(Scale:double);
function GetBakX:integer;
function GetBackX:integer;
function GetFuel:integer;
end;
TAZC=class
private
x,y:double;
Height:integer;
Fuel:double;
ConLen:integer;
public
Connected:boolean;
Disconnect:boolean;
constructor Create(x,y:double;Height:integer;Fuel:double);
procedure Draw(Can:TCanvas);
procedure Scale(Scale:double);
procedure LoadFuel(Load:integer);
function StopX:integer;
function GetFuel:integer;
procedure DoConnectWith(tx:integer);
procedure DoDisconnect;
end;
TScena=class
public
Changes:boolean;
Stoped:boolean;
CarFuelLoad:boolean;
C:TCar;
Wog:TAZC;
GroundY:integer;
Canvas:TCanvas;
MaxX:integer;
procedure Draw;
procedure Scale(scale:double);
constructor Create(Can:TCanvas;y:integer;MaxX:integer);
end;
implementation
{ TCar }
constructor TCar.Create(x, y: double; Length,Height: integer;Fuel: double);
begin
Self.x:=x;
Self.y:=y;
Self.Length:=Length;
Self.Height:=Height;
Self.Fuel:=Fuel;
Fueled:=false;
end;
procedure TCar.Draw(Can: TCanvas);
var xi,yi,color:integer;
begin
xi:=round(x);
yi:=round(y-Height/5);
Can.Pen.Width:=3;
Can.Font.Name:='Arial Black';
Can.Font.Size:=Height div 12;
with Can do
begin
Arc(xi-Height,yi-Height,xi,yi,xi,yi-Height div 2,xi-Height div 2,yi-Height);
color:=Brush.Color;
Brush.Color:=$07F6FF;
Rectangle(xi-Length,yi-Height div 2,xi,yi);
Brush.Color:=$FF9E28;
Rectangle(xi-Length,yi-Height,xi-Height div 2,yi-Height div 2);
TextOut(xi-Length+round(Height*(0.2)),yi-Height+round(Height*(0.15)),'Купуй українське!');
Brush.Color:=Color;
//колеса
color:=Brush.Color;
Brush.Color:=$0;
Ellipse(xi-round(Height*(0....